use dta\Turnout_District_Level, clear 

/* Cross-sectional Voter Turnout Distributions 1909-1936 */

foreach year in 1909 1912 1915 1918 1921 1924 1927{
hist turnout if year==`year', title(`year') width(0.05) start(0.00) freq bfcolor(gs10) blcolor(gs6) ///
graphregion(fcolor(white)) scheme(s2mono) xlabel(0(0.1)1.0) xtitle("") ytitle("") plotregion(lcolor(white) ilcolor(white)) ///
ylabel(0(5)20, grid angle(0))
graph save figures\gph\hist`year'.gph, replace
}

foreach year in 1909 1912 1915 1918 1921 1924 1927{
hist turnout if year==`year', title(`year') width(0.05) start(0.00) freq bfcolor(gs10) blcolor(gs6) ///
graphregion(fcolor(white)) scheme(s2mono) xlabel(0(0.1)1.0) xtitle("") ytitle("") plotregion(lcolor(white) ilcolor(white)) ///
ysc(noline) ytick(none) ylabel(0(5)20, grid angle(0))
graph save figures\gph\hist`year'_.gph, replace
}


cd figures\gph\
graph combine hist1909.gph hist1912_.gph hist1915.gph hist1918_.gph hist1921.gph hist1924_.gph hist1927.gph, ///
xcommon ycommon graphregion(fcolor(white)) scheme(s2mono) plotregion(lcolor(white) ilcolor(white)) row(3) col(2)
*graph export ..\hist_V2.tif, replace
*graph export ..\hist_V2.eps, replace
graph export ..\FigureA1.tif, replace
graph export ..\FigureA1.eps, replace

cd ..\..\
